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Improving "Linear Search” by Steven Petrovic, TS1000 


1,6. Т.0.0. MEETING 


Due to lack ої demand, there was no December meeting, as has 
been our tradition the last few years. Its really hard to get а 


bunch of people together for a meeting in December, especially 
when the library wants to schedule us on New Years Eve. We have 
gotten a bit behind on the newsletter, but are now back on 


track with hopes of staying that way. We need to have people pay 
their dues as that is what puts out the newsletter. It costs to 
copy things, first class postage, etc. As I do not do this asa 
charity action, it must pay its own way. І will mark your 
address label if you are overdue. The dues for just the 
newsletter, with no meetings or access to our Sinclair library, 
dues are $7.50 per year. For Full Membership, dues are $10.00 a 
year. In June they will be going up to $9.00 for Associate 
Member and to $12.00 for Full Membership. Pay up now and avoid 
the only price increase we have ever had. Remember...we send out 
our newsletter First Class, not bulk rate mail (which can mean 
up to a six week wait on delivery)! We have picked up 5 new 
members in the last three months (so we аге not a dead or dying 

group) and now just need to get more of you to attend some 
meetings. At times I feel like I am putting out just a 
newsletter to а lot of unknown people. І want to meet more of 
you, even if it is just by phone or letter. In an upcoming issue 
we will have our annual names and address of ISTUG members, and 
this can be of help when you need to make that call for help 
with that stubborn program you just cannot get to work right. 

The January meeting was held at the Eagledale Public 
Library on January 28th. Mike- Felerski, Paul Holmgren, George 
Love, Frank Davis and one unknown visitor with а TS1000 were 
there.» In order to keep the library as a meeting place we need 
to have more people than that. Part of the low attendance at 
this meeting was that we did not get the OKAY from the library 
soon enough to put the place and date in the last newsletter. 
So, I ended up calling people long distance and only found so 
many home. Everyone I was able to get hold of..showed up! 
Low attendance has had us bumped from the library for the months 
February, March and April, and trying to get a different time or 
date there for May. We have the library for June, July, August, 
September, October, November, with no December meeting. 

The February meeting will be held at 1:30 PM on Feb, 25 at 
the home of Willie Jones, 10126 E. 33rd St., Indianapolis, IN 
46236. If you need directions call Willie at 317-897-9225 or 
Paul Holmgren at 317-291-6002. Call Frank at 317-473-8031 to 
volunteer to hold the March or April meeting at your home. 
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EDITORIAL by Frank Davis 


Have you thought about "upgrading your Sinclair System for a 
Commodore, Atari, or an IBM?” 

Give this thought the toss, as I do not think it is really 
what you want to do. Perhaps you have even felt pressured by 
friends or family to do so...maybe they have even told you of 
"all the things and software you could have”. Grab hold of a few 
magazines or Computer Shopper and check out the prices for 
hardware and software. If you are one of those who have been 
reluctant to pay a decent price for Sinclair software, then you 
will not want to pay prices of $149 for things like a disk of 
disk utilities, or $40 to $75 for а game. Get а copy of Sinclair 
User from RMG or Curry Computer and make an order to England for 
some Spectrum Software. Get Jack Dohaneys Catalog, Stan Lemkes 
Byte Powers, RMGs, Sharps, Time Designs, John McMichaels, 
Emsoft, Zebra Systems Inc., Т & С Services, У Р Hosey, WMJ Data 
Systems-TD, A.F.R. Software, UPDATE, Herb Bowers, Promise Land 
Electronics; Bottle Сар Software, Zunk Custom Electronics, Ed 
Grey Enterprises. Order something from them and keep them in 
business. These are just the dealers listed in the most recent 
issue of Time Designs Magazine, and are not the end of the list. 
Want their address? Send me a large SASE, or write Time Designs 
Magazine. 

Looking for Public Domain software, then you have two known 
options. One is join and be active in a Computer User Group. If 
you ask them for copies of public domain software, then be 
patient. You are dealing with people doing this for free or for 
the cost of doing so Cat the most putting a dollar or two into а 
club account to acquire tapes and disks to store programs on). 
They all hold down regular jobs and have families, which means 
they fill an order on a basis of when they can get some spare 
time. For ISTUG, our preferred way of sending out public domain 
programs is оп JLO 5 1/4 disk, DSDD ог DSQD. ІЁ you want it on 
tape then expect it to take longer, as each program has to be 


loaded, BREAK, then SAVED, then VERIFIED... one at а time. On 
Disk І can do over a thousand programs in ап hour or two. On 
other media such as wafers for the A & J 1000 апа 20900, 
Wafadrive or Microdrives for the QL, then you would need to 


provide the media. 

The second way to get public domain programs із to join | 
SNUG, and check out the libraries they are compiling. Paul 
Holmgren of ISTUG is acting as Vice-President and Frank Davis is 
the Head Librarian. Several other members of ISTUG have also 
joined SNUG. They will soon be having the national election to 
pick the officers for the next year, : but to vote or run: for 
office you need to join first. There will be no selling their 
Public Domain Library or other services to non-members. To do 
other than this is to cripple such a group. 5 

Remember the IBM emulator mentioned as a rumour an issue ог 
two ago, it is now being sold by Sharps for $149.95 and you will 
need disk drives and added memory. This gives you access to QL 
and IBM software! I hope that RMG will soon be handling this, as 
well as others. Of very bad news to me is that the price of the 
Trump Card has taken a $200 raise in price and QL prices have 
been raised uniformly by those dealers who still have then. 
Sharps have lowered the price of their CPM emulator to $59.95, 
which along with an IBM emulator gives you access to quite a bit 
of software for your QL. Buy it some spare parts for in the 
future and you have a machine which will not be outdated for 


quite some time, 
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Tricks of the Trade: Converting УЦ-Саїс 


the Trade, I 


As І mentioned in my last article on Tricks of 
to vun 


plan to discuss im this issue the conversion ої VU-Calc 
on the Spectrum Emulated т52068 with Rotrenics Wafadrive. 


Previously I talked about information regarding the conversion 
af Spectrum versions ої the programs that was published at the 
time when the Wafadrive Systems were available in the States. 
The methods that I discuss, use the  Т52068 versions of the 
software, and thus often require less work than previously 
published methods. 


Before I begin the steps of converting му-Саїс to run on the 
Wafadrive system, I would first like ta explain the ideas behind 
the conversions. As you know, both the ZXSpectrum and the 
Timex-Sinclair 2068 each contain basically 16K of ЕОМ used for 
the Operating System and the rest of the address space is for 
RAM Cignering for пом the bank switching capabilities of the 
2068). The first 7K of БАМ on both machines contain the Display 
File, Attribute File, the Frinter Buffer, and the System 
Variables. After this, the two systems begin бо differ. 

The Т82068 then sets up memory space to hold a Secandary 
Display and Attribute File. The Spectrum an the other hand gets 
up зарсе far the Microdrive Maps, which is Smaller, and thus 
affords the Spectrum mare FAM Со program with over the 2068. 


When programs such as VU-File and VU-Cale were originally 
converted aver бо run on the 2068 from the Spectrum version, the 
programs were not rewritten to take advantage of the expanded 
features of the 2068, they were just made smaller ро fit. 


What all this means to the Wafadrive owner is that the ар. т 
overhead FAM required Бу the МОЗ (Wafadrive Operating System) 


does moat hinder the operation of the TS2068 versions of the 
programs because these versions are already smaller. This i 


what makes the conversions easier than with the Spectrum 
versions. 


First, set up your system and initialize the Wafadrive with: 
NEWE <ENTER > 


Next, LOAD"" the first (BASIC) part of your  Т52068 VU-Calc 
program and BREAK the program when it begins searching for the 
CODE file which comes next. Now type in: 

INK 7 ENTER? 
Now we can list the program and make changes toa lines 10, 1000, 
1100, and 4000, as follows: 


10 CLEAR VAL "29327": BORDER LN РІ: PAPER LN РІ: ІМК VAL"7": CLS 
: LOAD "VU CALC": GO TO VAL "Geoo" 

1000 GO SUB VAL "1100": LOAD жаб: CLS: GO ТО USE ех 

1100 GO SUB VAL "1200": CAT Ж: FRINT "'''"ЕЄМТЕК Data file name": 
INFUT at: RETURN 


4000 GO SUB VAL "1100": SAVE #at,zz, (PEEK bfre+256#PEEK 
Cofretid-zz): CLS: GO TO USR ez 


Now, here is where а bit af trickery can come into play. If we 
wish бо COPY a screen using the DRAW code and command бо a full 
size printer (via the Wafadrive’s Centronics port) we must 
change lines 10 and 2000, and then add two lines to the end ої 
the program as follows: 


10 CLEAR VAL "29327": BORDER LN PI: PAPER LN РІ: ІМК VAL"7": CLS 
: LOAD #"VU CALC": LOAD *"COPY CODE": GO TO VAL "3200" 


2000 GO SUB VAL "9990": DRAW ж: BORDER 1: GO TO USF ез 


Add lines: 


9990 FOKE VAL "23296",VAL "2": POKE VAL "23297",VAL "5": FOKE 
VAL "23238", VAL "76": POKE VAL "23299",VAL "О": POKE VAL 
"23398",VAL "168" 


9991 RETURN 


The DEAWK command comes from code loaded from the  Кобуопісь 
Toolkit Wafer or can be typed in from the Wafadrive Bulletin. In 
my version, І loaded the code from the wafer, Cinto the Printer 
Buffer? and saved а сору of the cade бо my working wafer with: 


‘SAVE Ж"СОРУ CODE", 23296, 256, 25300 


Address 23300 is the starting address of the initialization af 

the code which will be auto-executed when loaded. 
The problem we run into is that VU-Cale destroys the first 
four bytes in the Printer Buffer during operation. This 
will cause the 


essentially wipes out cur setup parameters and 
program ta crash. The easiest way I found to correct this, was 
to rePOKE the values before calling DRAW. This is done in line 
9990, The fifth POKE tells the DRAWE code to сору only the 
first 21 lines ої the screen, which is all we want. 


Мам SAVE the BASIC portion of the program бо wafer using: 
SAVE cE"VU-CALC" LINE 10: VERIFY #"VU-CALC": САТ Ж 
Next, LOAD "ve"CODE from cassette and SAVE it to wafer using: 
SAVE "VU CALC", 29328,5225: VERIFY #"VU CALC": CAT Ж 
With these changes the program will now SAVE, LOAD and  СОРУ 


(DEAWE) via the Wafadrive. Credit must be given toa the writer 
of VU-Cale for previding us with a BASIC access ta the hard COFY 


routine. 


Thus we have another conversion ої ап extreamly useful program 
to a great mass storage system. But this is far from the end... 
...Ецёцке installments will include the conversion of MTerm/T 


and a conversion ої У0-30 which alsa uses the DRAWE command. 


EO 
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Tom Woods wrote a file retrieval routine in 
called "The Linear Search". This program, разец an 
machine code, preceded the well known database program 
"ZX-Fro File”. When I first loaded the Linear 
into ту ТИЗ 1000, I noticed that the ability хо quick 
load and retrieve files was outstanding. However, while 
the machine code was quite efficient and conplete, the 
BASIC routine which allows the operator to manipulate 
the files was too limited (which Tom admits ta in his 
documentation) a It was’ this part of his work that I 
decided to expand upon. In addition to search and write 
capabilities, the modifications include the following 
features î А 

1) Directing files to the printer 

2) Filename display 

з) File deletion 

4) Saving files fram within the program 

5) Exit option 
Upon the addition of these options, "The Linear Search" 
becomes a fairly complete database program. 

The Linear Search consists of three parts; а REM 
builder, a machine code loader, and the BASIC contr ol 
program, Files are stored in a REM statement Kbytes 
long. All searches, additions, and deletions © | 
within this REM statement. The machine code loader loads 
the source code for the file storage/retrieval routine 
and the BASIC control кешп facilitates the use of the 
source cade rautine. 

Accomodating these extra options requir 
REM statement (line 11) be shortened by І E а 
builder has to regenerate a REM statement 12 Крэ hes 
which is easily accomplished by changing line З in the 
REM builder tea 


1982 


he RE 
bang 


З FOR І=1 ТО 12000 


Fun the REM builder іп FAST mode after the modification. 


This should take approximately six minute Dance the REM 
зро is finished, either load the machine code and 
the BASIC listing: from cassette, or type in the machine 
code loader routine, enter the machine code fram Tom 
Моо” documantation and tye in the modified BASIC 
listing shown in figure i. All additional Functions 
arising from this modification are called from the manu 
on line 705. 

Directing printer output consists of using the 
variable J as a flag. If Ја] when the file search 
function is called, the file will be dumped to the 
printer as well as to the screen using lines 205 and 
219% ІЁ 020, the flag is not set and по printer output 
Will oecur. 

Deleting filenames consists of using another fragi 
this time the variable 2. Once a filename x 
entered with на "7" flag up, the filename is 
for in the line 11 REM statement using the ШК 
line 122. The address of the file pointer is Loaded inka 
the variable X and then the program is directed ta the 
routine beginning at line 726 where the length of the 
file to be deleted is determined. Using a counter loop, 
characters are counted until the file marker, which is 
an asterisk, is found. Once the file length has been 
determined, the number of characters after the end of 


са 


the file to be deleted are counted using lines і 
These characters are loaded into the string variable Ys, 
and then these characters are moved to the starting 
address of the file to be deleted. Technically, the 
deleted file is overwritten and the statement in line 
790 resets the variable Е, which keeps track of the last 
character in the REM statement. The value of F is 
reduced by the filelength of the deleted file. Even if 
the deleted file is longer than the preceding files, the 
resetting of the variable F ignores those additional 
characters, : 

Another important option is the ability to 
filenames. Although my knowledge in machine 
limited, І was able to construct a slower running BASIC 
subroutine which does display all files in the database 
The routine starts at line 820 and ends ak line З. Те 
file pointer aturned to the first byte of the 12 
Ebyte REM statement (X=16659) and prints only those 
characters which constitute the filename (lines £ 
850). The end of the filename is marked by a quote image 
C(COHRECLS8S3)),. After thirty filenames have been displayed 
or the end of the database has been reached, the program 
will ask you if you would like a сору and if you would | 
like to continue (if the end of the da : has mot f 
mhed) a Saving anci exit functions are | 


г 


heer re 
straightforward and will not be dealt with except by 


а 


saying that any program may became salf 
SAVE command is placed at the end of a 
followed by a GOTO statement shawn in lines 

The addition of these options ta the Linear See 
makes Tom Woods’ predecessor to ZX-Fro File much more 
afully, this endeavor of mine will help 


program listi 
280-990, 


arch 


versatile. Her 
other T/S users to pick up old ar new copies of Linear 


Search. 


Reports of the untimely demise of the RMG BES due to MASSIVE 
SYSTEM FAILURE at 2:38 AM on 11/23/88 are THE! 


We are saddened to have to be the ones to have to report that 
the 2 year old RMG EBS is gone, but hopefully not forgotten! It 
was given about 6 weeks to live, but evidently the system could 
not stand the added strain of the "death sentence" handed down 
by the lack uf use and lack of funds to keep it operating. 


BUT DO NOT DISFAIR! ROD БОКЕМ, former sysop of the КМБ BBS and 
owner/operator of AMG ENTERFRISES has found us a NEW НОЕ іп the 


Fortland area. 


Our new address: 


REMEMBER WHEN BES ж 563/652-5005 24 HRS/DAY з В/1/М 
355/1200 BAUD з 23 MEG HARD DRIVE з UPLOAD/DOWNLOAD 
BASE NAME: SINCLAIR USERS UNITE! * BASE # 8 


Give it a call and call it your new home. Thank the sysop and 
FLEASE! Whatever you do, USE THIS BES! І can only issue one 
warning: LACK OF USE WILL COST YOU THE USE OF THE BES! 


Use it to leave messages to AMG, TDM ог any of the members of 
the Oregon area user groups. 
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